Исходный код

Option Explicit
Call CreateMessage("Пароль TDMS", _
    "Прошу выслать мне пароль для входа в систему.", "SYSADMIN")


'==============================================================================
' Создать и отослать новое почтовое сообщение с темой msgSubject,
' содержанием msgBody и отправить его получателю ToWhom
'==============================================================================
Sub CreateMessage(msgSubject, msgBody, ToWhom)
    Dim Msg, CurUser 
    
    ' Получить ссылку на текущего пользователя
    Set CurUser = ThisApplication.CurrentUser
    
    ' Создать сообщение
    Set Msg = ThisApplication.CreateMessage
    
    ' Заполнить свойства сообщения:
    'тема...
    Msg.Subject = msgSubject 
    'содержание...
    Msg.Body = msgBody & Chr(13) & "С уважением, " & CurUser.SysName & "." &  _
         Chr(13) & ThisApplication.CurrentTime
    'получатель...
    Msg.To = ThisApplication.Users(ToWhom)
    'высокий приоритет...
    Msg.Priority = tdmPriorityHigh
    'нужно уведомление о прочтении...
    Msg.ReadReceipt = True 
    
    ' Отослать сообщение
    Msg.Send
End Sub
'==============================================================================